10 CLEAR1,&H82FF:SCREEN2:BLOAD"cas:HAPPY",R,&HE000
